home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.49 / mathematik / matrix_test.p < prev    next >
Text File  |  1995-06-24  |  621b  |  37 lines
  1. PROGRAM Matrix_Test;
  2.  
  3. CONST N = 4;
  4.  
  5. TYPE  Matrix = Array[1..n,1..n] of Integer;
  6.  
  7. VAR   a: Matrix;
  8.  
  9.  
  10. PROCEDURE Lies_Matrix(VAR a: Matrix);
  11.  VAR i,k: Integer;
  12.   BEGIN
  13.    Writeln("gib ",n*n:6," zahlen");
  14.    For i:=1 to n do
  15.     For k:=1 to n do Read(a[i,k]);
  16. END;
  17.  
  18. FUNCTION Symmetrisch(a: Matrix):Boolean;
  19.  VAR i,k: Integer;
  20.   BEGIN
  21.    symmetrisch:=true;
  22.    For i:=2 to n do
  23.     For k:=1 to i-1 do
  24.      If a[i,k]<>a[k,i] then Begin
  25.       symmetrisch:=false;
  26.       Exit;
  27.      End;
  28. END;
  29.  
  30.  
  31. BEGIN {  main  }
  32.  Lies_Matrix(a);
  33.  If Symmetrisch(a) then writeln("symmetrisch")
  34.                    Else writeln("unsymmetrisch");
  35. END.
  36.  
  37.